home *** CD-ROM | disk | FTP | other *** search
/ Gamers Arsenal 1 / Gamers Arsenal (Arsenal Computer).iso / gifreed / gifv.slk < prev    next >
Text File  |  1993-10-11  |  915b  |  42 lines
  1. ;
  2. ; GIFV.SLK
  3. ; This script shows the GIFV.SLJ with DEBUG-ON at the top of the
  4. ; :GOSUB-HERE routine. This command shows you a step by step trace of
  5. ; your script file! Notice that before the subroutine ends, the
  6. ; DEBUG-OFF command is issued. This is so that the REST of the Script
  7. ; file doesn't get traced too!
  8. ;
  9.         change-path f:\*.gif
  10. :loop
  11.         loadnext :exit
  12.         gosub :gosub-here
  13.         goto :loop
  14. :gosub-here
  15.         DEBUG-ON
  16. ;
  17. ; Here is my routine to increase RED a 20 times and
  18. ; then increase blue 20 times then it resets the colors
  19. ;
  20.         set v1 1
  21. :more-red
  22.         more-red
  23.  
  24. redraw
  25.  
  26.         set v1 +
  27.         if v1=20 :NoMoreRed
  28.         goto :more-red
  29. :NoMoreRed
  30.         set v1 1
  31. :more-blue
  32.         more-blue
  33.         set v1 +
  34.         if v1=20 :NoMoreblue
  35.         goto :more-blue
  36. :NoMoreBlue
  37.         reset-colors
  38.         DEBUG-OFF
  39. sub-end
  40. :exit
  41.  
  42.